COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "WALK"
C00003 ENDMK
C⊗;
BEGIN "WALK"
REQUIRE "DDSUB.SAI[GRA,HPM]" SOURCE_FILE;
REAL X,Y,X1,Y1,D;
DDINIT;
SCREEN(-30,-30,30,30);
DRKEN; RECTAN(-200,-200,200,200); INVEN;
DPYUP(-1);
RAN(CALL(0,"RUNTIM"));
X←Y←0;
WHILE TRUE DO
 BEGIN
 D←2*3.14159265*RAN(0); X1←SIN(D); Y1←COS(D);
 X1←X+X1; Y1←Y+Y1;
 LINE(X,Y,X1,Y1); X←X1; Y←Y1;
 DPYUP(-1);
 END;
END;